home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc xi 93.d64 / qwkie dearc(csx) (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  477b  |  14 lines
  1. 10 FORI=631TO642:READJ:POKEI,J:NEXT:POKE198,12
  2. 20 POKE53280,0:POKE53281,0:PRINT"[147]RUN"
  3. 30 PRINT"LOAD"CHR$(34)"CSX.BAS"CHR$(34)",";
  4. 40 IFPEEK(186)<8ORPEEK(186)>15THENPOKE186,8
  5. 50 PRINTPEEK(186)
  6. 60 PRINT"";:POKE646,0:LIST1765-
  7. 200 DATA 17,13,19,13,13,13,13,13,13,13,17,13
  8. 1765 INPUT "[159][213]SE [158][209][215][203]IE[159] AUTO DE-ARC  Y[157][157][157]";QK$:IF QK$<>"Y" THEN 1770
  9. 1767 INPUT "[159][196]E-ARCING [212][207] A 1541 OR 1571  Y[157][157][157]";MD$
  10. 1775 IFMD$="Y"THENPRINT#14,"M-W";CHR$(105)CHR$(0)CHR$(1)CHR$(1)
  11. 1923 IFMD$<>"Y"THEN1930
  12. 1925 POKE631,13:POKE632,13:POKE633,13:POKE198,3
  13. 1927 IFA$<>".DAT"ANDA$<>".NDX"THENPOKE631,ASC("N"):POKE198,2
  14.